RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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| 
CCCCCCCC ONN NN VV VV DDDDDDDD AAAAAA ~—soTTTTTTTTTT 
CCCCCCCC ONN NN VV VV DDDDDDDD AAAAAA ~—sTTTTTTTTTT 
cc NN NN VV vv DD DD AA AA TT | 
CC NN VV vv DD DD AA AA TT 
CC NNNN NN VV VV DD DD AA AA TT 
CC NNNN NN VV vv DD DD AA AA TT | 
CC NN NN NN VV vv DD DD AA AA TT 
CC NN NN NN VV vv DD DD AA AA TT 
cc NN NNNN VV vv DOD DD AAAAAAAAAA TT 
CC NN NNNN VV vv DD DD AAAAAAAAAA TT 
cc NN NN vv vv DD DD AA AA TT es 
rad NN NN VV WY DD DD AA AA TT ie 
CCCCCCCC oONN NN vv DDDDDDDD = AA AA TT sips | 
LL III SSSSSSSS 
LL HI11] SSSSSSSS 
LL I] $$ 
LL Il SS | 
LL I] SS 
LL I] $s 
LL I] SSSSSS 
LL Il SSSSSS 
LL I] S$ 
LL I] SS 
LL I] SS 
LL I] 5S | 
LLELLLLLLLL eeeeel SSSSSSSS 
LLLLLLLLLL §=sTII) = SSSSSSSS 
| 
| 
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ZTITLE ‘CNVDAT - Converts Binary date and time into ascii‘ 
MODULE CNVDAT ( IDENT = 4-000' 
LISS32 C , ADDRESSING_MODE ( EXTERNAL = LONG_RELATIVE 
; NONEXTERNAL = LONG-RELATIVES] 
= 


BEGIN 


RRR RARER AA RARAAAAAEAAAAEAHERATERAAEEAATERERT HAAR AAERAR AREER AREA eee ee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
® 
& 
a 
: + 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCh LICENSE AND WITH THE * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
i® OTHER PERSON, NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
® 
iw THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
ie CORPORATION. « 
® 
+ 
& 
x 
e 
* 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Vee RRA AEE A AAA ee 
' 


i¢¢ 
FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


ABSTRACT: Convert winecy and date and time into something 
more legible (i.e., ASCII). 


ENVIRONMENT: Transportable 
AUTHOR: R.W.Friday CREATION DATE: February, 1979 
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CNVDAT CNVDAT = Converts binary date and time into asc 1b-se -1984 00:24 AX-11 Bliss-32 V4.0-74 Page 
v04=000 Revision History , ae  rAR a o ef 8 


; } ESBTTL "Revision History’ | 
: 4s 4 | MODIFIED BY: 

: 23 rf 1 i 009 REM00009 Ray Rerghalt 30-Mar-1984 

: rk 47 1! Added conditionals for foreign senguage support. Provided 
: 4 rk ! German translations for the names of the months. 

> 51 990 1 i 008 KFA00008 Ken Alden 16-Sep-1983 

; ¢ itd : } Did the same as 007 but did it for RUNOFF. 

: 4 038 1 i 007 KFA00007 Ken Alden 8-Jul-1983 

3 5 54 1! Removed hack that always assumed that the date was 

; § Opee : } two characters long. 

; 8 Eid & 006 KFA00006 Ken aiden 8-Jul-1983 

; 4 B28 ! Removed the leading ‘0° from the date (if any). 

: 61 0060 1! 005 KFA00005 Ken Alden 13-April-1983 

3 6 0061 1! For DSRPLUS: Format of the date will now read Like 

3 o? R206 : the date of this rev. history.(without the hyphens) 

: 65 0064 1! 004 KFA00004 Ken Alden 07-Mar-1983 

; 66 0065 1! Global edit of all modules. Updated module names, idents, 
3 24 Boos : } copyright dates. Changed require files to BLISS library. 

: 69 0068 1 i-- 


z 
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TABLE OF CONTENTS: 


' 

i INCLUDE FILES: 

RARY "NXPORT:XPORT'; 
UIRE 'REQ:RNODEF'; 


DSRPLUS XTHEN 
RARY "REQ:DPLLIB'; 


RARY ‘REQ:DSRLIB’; 


—Oor-on~ ow 
“ 
m 


EQUATED SYMBOLS: 


OWN STORAGE: 


EXTERNAL REFERENCES: 


XTERNAL 
GCA : GCA_DEFINITION; 


EXTERNAL ROUTINE 
CONVBB; 


CNVDAT = Converts binary date and time into asc 1 
Module Level Declarations 


TSBTTL "Module Level Declarations’ 


1 


AX-11 Bliss-32 V4.0-7 
RUNOFF ..SRCJCNVDAT.BLI 


$3 


XPORT Library 
RUNOFF variant definitions 


! DSRPLUS BLISS Library 
DSR BLISS Library 


O08 NINN SSN NNSA A AAA AA AAO SBE EE EEE EWA 


AT = Converts 7 date and time into as 
AT == convert date to ASCII] string 


Zsbttl ‘CNVDAT == conv 


K 6 

o-8ep-1984 13:05:46  ERUNOFFSRESCHVDAT OL {7 mal 
trin 

SULT 


c 1 

1 
ert date to ASCII s 9’ 

GLOBAL ROUTINE CNVDAT (PIECES, RESULT, RE LENGTH) : NOVALUE = : 


'o¢ 


; FUNCTIONAL DESCRIPTION: 
Converts a binary date into something legible. 
FORMAL PARAMETERS: 
PIECES are the separated month, dey. and re 
It's really the complete binary date and time, but only the 
date portion is used. 
RESULT is a CHSPTR to where the results are to go. 
RESULT_LENGTH is the number of characters in the result. 
IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 


ROUTINE VALUE: | 
COMPLETION CODES: None 


SIDE EFFECTS: 
Advances the pointer, RESULT. 


MAP 
PIECES : REF VECTOR; 


DODONAUES WN OOO NA NESW O ODNAOULS WN SO CONOULSWN—OOO~N OC 


'Convert the day to ASCII. 
CONVBB(.DAY,CHARS,COUNT, 10); 


| 
Hi i iqutst that the day be two digits. 

| 

| 


PUPS B® BS BS BS EB EEE ANNAN NIIP PONIPUNINDN 2 SS ee 
DONA UNE WD 9 OONO VUE WW 9 OODNOA UNE WN 0 COONAN EWN OO OOSNIOUS WN "O 3 


ii wp gount NEQ 2 
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0000000000000 00 0000 
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1 
BEGIN 
LOCAL 
CHARS : VECTOR (20), 
COUNT; 


Be Se Be Oe Be Se Se Se Se Se Be Be Ge Be Be Be Ge Fe Se Ge Se Ge Se Ge Se Fe Ge Ge Gs Ge Ge Ge Ge Se Ge Ge Ge Se Se Se Fe Se Se Se See Se SeSe Se Se Se Se Sees tees 
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60 ii CHSWCHAR_A(ZC'O', .RESULT); 

$¢ 'Now copy over what was actually converted. 
6 DECR I FROM .COUNT TO 1 DO 

3 CHSWCHAR_A(.CHARSC.I-1], RESULT); 

66 'Now, add an appropriate separator. 


sis 


SROICNVDAT.BL ; 


AX-11 Bliss-32 V4. 


RUNOFF. 
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date and time into asc 1% 
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CNVDAT = Converts arnere Sore and time into asc 1b-sep-1984 90:00:98 apt Bliss-32 V4.0-74 


CNVDAT == convert date ASCII string 14-Sep-1 FF ..SRCJCNVDAT.BLI; 
40 CHSPTR(UPLIT('August')) 
209 CHSPTR(UPLIT(' September!)), 
410 CHSPTR(UPLIT('October')) 
i SASSTRGRHHT tosembe 3 
ecember 
21 “FI LFI XFI 
414 ) : VECTOR; 
415 OWN 
8718 MONTHL : VECTOR (12) 
041 XIF german XTHEN 
0418 INITIAL (7, 7, 5, 5, 3, 4, 4, 6, 9, 7, 8, 8); 
Be? ZELSE 
420 ZIF french ZTHEN 
04 1 INITIAL (7, 8, 3. 5. 3, 4, 4, 6, 9, Ts 8, 8); 
04 ¢ ZELSE 
04 SIF italian XTHEN 
0424 INITIAL (7, 8, 5, 5, 3, 4, 4, 6, 9, 7, 8, 8); 
0425 ZELSE 
0426 INITIAL (7, 8, 5, 5, 3. 4, 4, 6. 9, 7, 8, 8); 
0427 ZFIOXFI FI 
0428 
0429 
0430 LOCAL 
Bees en, 
04 ¢ ptr; 
043 ; 
0434 len = .monthlC.month-1); 
0435 ; PTR = .MONTH_NAMEC.MONTH-1);: 
0436 3 INCR I FROM T TO .Len DO CHSWCHAR_A(CHSRCHAR_A(PTR), .RESULT); 
ok 3 INCR I FROM 1 TO 3 DO CHSWCHAR_A(CHSRCHAR_A(PTR), .RESULT); 
0440 ‘Add a separator. 
ore CHSWCHAR_A(ZC° *, .RESULT); 
044 ‘Result length prior to year string: 
0444 eRESULT_LENGTH = .count + 1 + .len + 1; 
0445 2 END; 
0446 
0447 ‘Put in the year. 
0448 CONVBB(.YEAR,CHARS,COUNT, 10); 
0449 
0450 
pees IF “count EQL 1 THEN 
ER: CHSWCHAR_A(ZC°O", RESULT); 
0454 CHSWCHAR-A(.CHARSLO), .RESULT); 
455 -RESULT_CENGTH = ..RESULT_LENGTH + 2 
rt END; 
45 
$28 IF .count GTR 1 THEN 
460 'ZIF DSRPLUS ZTHEN 
461 BEGIN 
186 DECR i FROM .count T0 1 D 
046 CHSWCHAR_A(.CHARSC.1-1], .RESULT); 
0464 »RESULT_LENGTH = ..RESULT_LENGTH + .count; 


? | 
CNVDAT CNVDAT = Converts binary date and cyne into asc 18. Sep-1984 00:24 AX-11 Bliss-32 V4.0-74 P 
v04-000 CWVDAT == convert date to ASCII string 14- 30071382 99:99:28 RUNOFF .SRCJCNVDAT.BLI; Mee (a5 | 
3 8 465 END; | 
: 339 466 2 IXELSE 
; 340 46 ! BEGIN 
; 4) rb ! CHSWCHAR_A(. *EHARSEC : a dete 
3 4 ry ! CHOUCHAR cENe CHARSLO RESULT); 
; 43 470 :R RESULT LCENGTH = ..RESULT_LENGTH + 2 
: 345 047¢ IMF I; 
: 4 047 
: 4 0474 RETURN; 
2 
3 0 8258 
; 1 0478 #1 END; 'End of CNVDAT 


-TITLE CNVDAT eae = Converts binary date and time i 
; nto asc 
-IDENT \v04-000\ 


-PSECT S$PLIT$,NOWRT,NOEXE,2 


00 79 72 61 75 6E 61 GA 90009 P.AAB: .ASCII \January\<0> : ; 
fy te 6) 9 iE; $s 65 46 00008 P.AAC: .ASCII \februar : 3 
00 00 00 68 68 75 61 4D 00010 P:AAD: IASCIT \Marchvcd><0><0> canoe 
00 00 00 6C 69 ie: 70 41 00018 P.AAE: .ASCII \April\<0><0><0> : 3 
00 7 $1 4D 900 O P.AAF: .ASCII \May\<0> : ; 
G5 GE 75 4A 00026 P-AAG: CASCII \June\ | ; 
79 6C 75 4A 00028 P.AAH: <ASCII \July\ ; : 
00 00 74 73 75 i 75 «41 B88 C P.AAI: .ASCII \August\<0><0> : : 
00 00 00 72 65 62 6D 65 74 70 65 53 00034 P.AAJ: <ASCII \September\<0><0><0> : ; 
00 re 65 62 6F 74 63 4F 00040 P.AAK: <ASCII \October\<0> : ; 
es 6 6s 6D 65 ¢ 6F 4E 00048 P.AAL: .ASCII \November\ : 3 
72 65 62 6D 65 63 65 44 00050 P.AAM: ASCII \December\ : ; 
00000000" 00000000" 00000000' 00000000" 00000000° 00000000" 90058 P.AAA: . ADDRESS P.AAB, P.AAC, P.AAD, P.AAE, P.AAF, : ; 
00000000" 00000000" 00000000" 00000000' 00000000' 00000000" 00070 p- AAG .AAG, P.AAH, P.AAL, P.AAJ, p AAK.’P.AAL, = : : 
.PSECT $OWNS,NOEXE,2 : 
00000004 00000002 00000005 00000005 00000008 90000007 00000 MONTHL: .LONG 7, 8, 5, 5, 3. 4, 4, 6, 9, 7, 8 8 : F 
00000008 00000008 00000007 00000009 00000006 00000004 00018 ; : 
MONTH_NAME= P.AAA ; 
.EXTRN GCA, CONVBB ; 
.PSECT $CODE$,NOWRT,2 ; 
001¢ 000 .ENTRY CNVDAT, Save R2,R3,R4 : 0238 : 
54 000000006 EF 9E 000 MOVAB CONVBB, Ra ; ; 
E AC AE 9 0 0 MOV § : : 
52 04 AC 4 ¢ 0 ADDL3 #4, PIECE r R2 : 0277 : 
5 04 AC 8 ¢1 0001 ADDL3 #8. PIECES. > 0278 ; 
A BD 1 PUSHL #16 > 0281 ; 
04 AE 9F 00019 PUSHAB COUNT ; ; 
C AF OF 6 1¢ PUSHAB CHARS : : 
60 DD OO01F PUSHL (RO) : : 
| 
| 
j 


; Routine Size: 196 bytes, Routine Base: S$ CODES + 0000 


ae 
? | 
CNVDAT CNVDAT = Converts binary date and time into asc these -1984 : +7 AX-11 Bliss-32 V4.0-74 P 
v04-000 CNVDAT == convert date to ASCII string 127868=1 382 99:09:2 : RUNOFF .SRC CNUDAT LI: ms «i 
64 4 f 1 CALLS #4, CONVBB ; : 
50 6E of th é ADDL a. COUNT, I > 0291 ; 
51 08 AC D0 A 1$ MOVL RESULT : : 
00 «81 6640 F6 CVTLB CHARS ACT, a0(R1) : ; 
61 D6 INCL (R11) : : 
56 08 AC 0000038 ove” REsutT, RO : 029% 
00 680 2 88 0 MOVB Re a6cRr0) : F 
60 D 4 INCL (ROS : ; 
5 62 D 4 MOVL  (R2), RO + 0434 : 
3 990000 Ore D 4 MOVL  MONTHL=4CROJ LEN : ; 
O00'EF4O D 4p MOVL § MONTH_NAME-4CROJ, PTR + 0435 ; 
51 D4 0005 CLRL : 0436 ; 
0A 11 00057 BRB 4$ : ; 
50 08 AC 00 00059 3$ MOVL = RESULT, RO : ; 
00 80 82 90 0005D MOVB  (PTR)+. a0(RO) : ; 
: Dg 9061 INCL (RO) : ; 
F2 51 F3 00063 4$ AOBLEQ LEN, I, 3$ : : 
51 08 AC 00 00067 MOVIL RESULT R1 + 0441 : 
00 «BI 20 90 00068 MOVB #32, @0(R1) : ; 
61 06 006 INCL (RIS : : 
50 6E §3 C1 00071 ADDL3 sth COUNT, + 0444 ; 
oc BC 02 AO 9E 00075 MOVAB (rb), UNE guee _LENGTH : : 
OA DD 00074 PUSHL + 0448 : 
04 AE 9F 0007C PUSHAB COUNT : ; 
OC AE 9F OO07F PUSHAB CHA : ; 
06 BC DD 90082 PUSHL  @PIECES : : 
64 04 FB 0008 CALLS #4, CONVBB : ; 
01 6E D1 00088 CMPL COUNT, #1 > 0451 ; 
19 12 00088 BNEQ 5$ : ; 
50 08 AC DO 0008D MOVL RESULT > 0453 : 
00 ~=—«B0 30 90 00091 MOVE #48 36 <R3) : : 
60 06 00095 INCL (ROS : : 
50 08 AC DO 00097 MOVL RESULT, RO > 0454 ; 
00 80 04 AE 90 00098 MOVB CHARS, @0(RO) : F 
60 06 9009 INCL : : 
oc Bc 02 CO 000A2 ADDL2 #2, @RESULT_LENGTH > 0455 ; 
01 E D1 OO0A6 S$ CMPL COUNT, #1 : 0458 ; 
18 15 000a9 BLEG ; ; 
50 6E 01 C1 O00AB ADDL3 #1, COUNT, I + 0463 ; 
0B 11 OO0AF BRB 7$ : ; 
51 08 Ac DO 008 6$: MOVL RESU : ; 
00 81 6E40 F6 6 B5 CVTLB CaaS ACT. a0(R1) ; 3 
61 Dg OBA INCL (R 1) ; F 
F2 50 F5 OOOBC 7$: SOBGTR 6$ : : 
oc BC 6E £0 OOBF ADDL2 bount. @RESULT_LENGTH > 0464 : 
4 000C3 8$ RET : 0478 : 
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dD 7 
- Converts binary date and time into asc 16-Sep-1 AX=11 Bliss-32 V4.0-74 
-- Convert time to ASCII string 14- Sep- 19 3h #9: 88: 6 RUNOFF .SRCJCNVDAT. Buisi 
Zsbttl 'CNVTIM == Convert time to ASCII string’ 
GLOBAL ROUTINE CNVTIM (PIECES, RESULT, RESULT_LENGTH) : NOVALUE = : 


144 


Converts a binary time into something legible. 
FORMAL PARAMETERS: 


Sadly is the complete binary date and time. This routine 
uses only the time information. 

RESULT is a CHEPT R to where the results are to go. 
RESULT_LENGTH is the number of characters in the result. 


IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 
ROUTINE VALUE: 

COMPLETION CODES: None 


SIDE EFFECTS: 
Advances the pointer, RESULT. 


BEGIN 


LOCAL 
CHARS : VECTOR(20), 
COUNT 


Pp 
PIECES : REF VECTOR; 


= 
MINUTES 
SECONDS 


‘Convert the hou 
CONVBB(.HOURS, CHARS, COUNT, 10); 


aw Sye ,coarecters into the string. Force it to be exactly 
wo Ss. 
INCR | PROM 1 TO (2 = .COUNT) DO 

CHSWCHAR_A(ZC'O", .RESULT); 


OU 
CHSWCHAR. ~A(.CHARSC.1-1], .RESULT); 


‘Insert a separator 
CHSWCHAR_A(% ts RESULT); 


‘Convert the minu 
CONVBB( .MINUTES, CHARS, COUNT, 10); 


} 
7 | 
CNVDAT CNVDAT = Converts binary date and time into asc 1b. $ep-1984 AX-11 Bliss-32 V4.0-74 F 1 
04-000 CNVTIM == Convert time to ASCII string 14- ~8ep-1984 99: 88: 4 RUNOFF .SRC ChODAT BL tei a AY 
> 410 9 $ | : 
3 t13 2ah [out st the characters into the string. Force it to be exactly H 
; bd ° 
; 418 03 9 INCR I 1 Pron” 1T o 8" - COUNT) dO | ; 
: 414 540 CHSWCHA AtgC! SULT); : 
1 Te 2 i ec eee | i 
° 417 be7§ : ; Py 
; 418 0544 ‘Insert a sepergtor 3 
: 419 0545 CHSWCHAR_A(% » »RESULT); ; 
; 420 0346 : 
; 421 54 ‘Convert the seconds 3 
; 2 ¢ 208 CONVBB(. SECONDS, CHARS, COUNT, 10); : 
3 2 ¢ bee4 irae she characters into the string. Force it to be exactly ; 
| 4 0552 ince 1 Fron 1 To 88 -COUNT) DO : 
s 627 055 HSWC te ESULT); 3 
: 428 0554 DECR | FROM” [COUNT TO 4 * : 
; 429 0555 CHSWCHAR_AC, UEMARSC. I-1], .RESULT); : 
; 430 0556 : 
3; 431 0557 'Return the Leng 3 
3; 432 0558 -RESULT_LENGTH : sy #1¢2¢1 4 23 ; 
3 4655 0559 § 
> 434 0560 RETURN; : 
: 435 0561 : 
; 436 0562 1 END; ‘End of CNVTIM : 
003C 00000 ENTRY CNVTIM, Save R2,R3,R4,R5 ; 0480 5 
55 00000000G EF 9€ 00002 OVAB CONVBB, R5 3 3 
5E AC AE 9€ 00009 MOV -84(SP5, SP : ; 
50 04 AC 0C C1 0000 ADDL3 #12, PIECES, RO : 0517 ; 
53 04 ac 10 ¢1 0001 ADDL #8, PIECES, R3 : 0518 3 
54 04 AC 14 C1 0001 ADDL #20, PIECES, R4 : 0519 3 
OA DD OOO0IC PUSHL #10 3; 0522 : 
04 AE 9F OOOIE PUSHAB COUNT : : 
OC AE 9F 00021 PUSHAB CHARS : 3 
60 DD 00024 PUSHL (RO) : 3 
51 §3 oe £8 09 § UBL COUNT see R1 : 05 : 
85 bz $0090 URE : $339 
OA 11 F BRB $ 3 3 
50 08 ac 6 1 1$ MOVL RESULT, RO : 3 
00 «B80 30 9 9 5 MOVB #48 aOR (RO) : ; 
F2 52 ? bg 6 i 28 AOst Q (R05 * 1$ : : 
50 6E 1 ¢} $5 F ADBLS . COUNT, I : 0529, : 
B 11 00 43 BRB : 3 
51 08 ac 00 45 3$: MOVL RESU : ; 
00 81 6640 F6 00049 CVTLB EHARS-ACI, a0(R1) : : 
BPE SF as, Ueeon 18 : : 
£8 08 AC bd 0005 MOVL 1e88,, RO > 0532 : 


AX-11 Bliss-32 eb a od 


ERUNOFF SRC ICNVDAT.BL ; 
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date and time into as 


CNVTIM == Convert time o ASCII string 


CNVDAT = Converts binar 
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‘End of module 


SCODES + 00C4 
PSECT SUMMARY 


Routine Base: 
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CNVDAT CNVDAT = Converts onary Sore and time into asc 18-se ~penn 1386 99: 80: ¢ AX-11 Bliss-32 V4.0-7 Page B 


3 ry Used: 80 pages 
: — ation Complete 


v04-000 CNVTIM == Convert time ASCII string -Sep-1 RUNOFF .SRCJCNVDAT. BL: 
; Name Bytes Attributes 
: SPLITS 13 NOVEC.NOWRT, RD .NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: SOWNS is N WRT. RD ;NOEXE.NOSHR, LCL, REL, EON-NOPIE-ALIGN(3) 
; SCODES 414 NOVEE: *NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) | 
| 
; Library Statistics 
; coccsses Syabol§ ooceceee Pages Processin | 
: File Total idaded Percent Mapped Time ° 
: _$255$DUA28:(SYSLIBIXPORT.L32;1 590 252 :00.1 
; Hetty? § RUNOFF .SRCIDS Ri 18. L32;1 1248 : 86 $8 :90:5 
| 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=L1S$:CNVDAT/OBJ=OBJ$:CNVDAT MSRC$:CNVDAT/UPDATE=(ENH$: CNVDAT) 
; iy A ae fogs + 184 data bytes | 
: Elapsed Tee: 00:97. :0 
: > Lines/CPU Min: 
; eee At gig 15839 
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